home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / intern1a / frmpassw.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-02  |  3.6 KB  |  112 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOptions 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Internet LOCKDOWN!"
  5.    ClientHeight    =   3165
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3165
  13.    ScaleWidth      =   4680
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.OptionButton OptForce 
  17.       Caption         =   "Force Shutdown"
  18.       Height          =   255
  19.       Left            =   1080
  20.       TabIndex        =   8
  21.       Top             =   2520
  22.       Width           =   2895
  23.    End
  24.    Begin VB.OptionButton OptShutdown 
  25.       Caption         =   "Shutdown"
  26.       Height          =   255
  27.       Left            =   1080
  28.       TabIndex        =   7
  29.       Top             =   2160
  30.       Width           =   2775
  31.    End
  32.    Begin VB.OptionButton OptReboot 
  33.       Caption         =   "Reboot"
  34.       Height          =   375
  35.       Left            =   1080
  36.       TabIndex        =   6
  37.       Top             =   1800
  38.       Width           =   2655
  39.    End
  40.    Begin VB.OptionButton OptLogOff 
  41.       Caption         =   "Logoff"
  42.       Height          =   375
  43.       Left            =   1080
  44.       TabIndex        =   5
  45.       Top             =   1440
  46.       Width           =   2415
  47.    End
  48.    Begin VB.CommandButton Command1 
  49.       Caption         =   "Update and Reset"
  50.       Height          =   375
  51.       Left            =   1680
  52.       TabIndex        =   4
  53.       Top             =   840
  54.       Width           =   1695
  55.    End
  56.    Begin VB.TextBox Text1 
  57.       Height          =   285
  58.       Left            =   2280
  59.       TabIndex        =   2
  60.       Top             =   480
  61.       Width           =   1455
  62.    End
  63.    Begin VB.TextBox txtPassword 
  64.       Height          =   285
  65.       Left            =   1920
  66.       TabIndex        =   1
  67.       Top             =   120
  68.       Width           =   1455
  69.    End
  70.    Begin VB.Label Label1 
  71.       Caption         =   "Enter Time in SECONDS!!"
  72.       Height          =   255
  73.       Left            =   240
  74.       TabIndex        =   3
  75.       Top             =   480
  76.       Width           =   2055
  77.    End
  78.    Begin VB.Label lblpassword 
  79.       Caption         =   "Enter New Password!"
  80.       Height          =   255
  81.       Left            =   240
  82.       TabIndex        =   0
  83.       Top             =   120
  84.       Width           =   1935
  85.    End
  86. Attribute VB_Name = "frmOptions"
  87. Attribute VB_GlobalNameSpace = False
  88. Attribute VB_Creatable = False
  89. Attribute VB_PredeclaredId = True
  90. Attribute VB_Exposed = False
  91. Private Sub Command1_Click()
  92. SaveSetting App.Title, "Lockdown", "password", txtpassword.Text
  93. SaveSetting App.Title, "Lockdown", "countdown", Text1.Text
  94. MsgBox "You must restart the program for anychanges to take effect!", vbOKOnly
  95. 'Get Option Settings
  96. SaveSetting App.Title, "Lockdown", "OptShutdown", OptShutdown.Value
  97. SaveSetting App.Title, "Lockdown", "Logoff", OptLogOff.Value
  98. SaveSetting App.Title, "Lockdown", "Force", OptForce.Value
  99. SaveSetting App.Title, "Lockdown", "Reboot", OptReboot.Value
  100. frmOptions.Visible = False
  101. Unload frmMain
  102. Load frmMain
  103. Unload frmLogin
  104. End Sub
  105. Private Sub Form_Load()
  106. Text1.Text = GetSetting(App.Title, "Lockdown", "Countdown")
  107. txtpassword.Text = GetSetting(App.Title, "Lockdown", "password")
  108. End Sub
  109. Private Sub OptForce_Click()
  110. MsgBox "Only use Force Shutdown if you must, may cause errors on your hard drive!", vbCritical
  111. End Sub
  112.